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uCore  Architecture 


Dual  Stack 

Forth  oriented  instruction  set 

Harvard 

Prefix  Code  (Transputer  Style) 

Scalable  data  width 

Object  code  compatibility 

Interrupt 

after  every  instruction 

Exception 

hardware  mechanism  for  multi  tasking 
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uCore  1.20  Opcodes  by  Functionality 


NEVER     NONE  BRA  Op:  nop 

Unary  Operators 


(  —  ) 


NOT 

BOTH 

ALU 

Op 

invert  ( 

nl 

--  n2  ) 

SL 

BOTH 

ALU 

Op 

2*  ( 

nl 

--  n2  ) 

ASR 

BOTH 

ALU 

Op 

2/  ( 

nl 

--  n2  ) 

LSR 

BOTH 

ALU 

Op 

u2/  ( 

nl 

--  n2  ) 

ROR 

BOTH 

ALU 

Op 

ror  ( 

nl 

--  n2  ) 

ROL 

BOTH 

ALU 

Op 

rol  ( 

nl 

--  n2  ) 

ZEQU 

BOTH 

ALU 

Op 

0=  ( 

nl 

--  flag 

CC 

BOTH 

ALU 

Op 

cc  ( 

) 
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uCore  1.20  Opcodes  by  Functionality 

Binary  operators 


ADD 

POP 

ALU 

Op : 

ADC 

POP 

ALU 

Op : 

SUB 

POP 

ALU 

Op : 

SSUB 

POP 

ALU 

Op : 

AND 

POP 

ALU 

Op: 

OR 

POP 

ALU 

Op: 

XOR 

POP 

ALU 

Op: 

ADD 

PUSH 

ALU 

Op: 

ADC 

PUSH 

ALU 

Op: 

SUB 

PUSH 

ALU 

Op: 

SSUB 

PUSH 

ALU 

Op: 

AND 

PUSH 

ALU 

Op: 

OR 

PUSH 

ALU 

Op : 

XOR 

PUSH 

ALU 

Op: 

+  (  nl  n2 

+c  (  nl  n2 

(  nl  n2 

swap-  (  nl  n2 

and  (  nl  n2 

or  (  nl  n2 

xor  (  nl  n2 

2dup  +  (  nl  n2 

2dup  +c  (  nl  n2 

2dup  -  (  nl  n2 

2dup  swap-  (  nl  n2 

2dup  and  (  nl  n2 

2dup  or  (  nl  n2 

2dup  xor  (  nl  n2 


—  nl+n2  ) 

--  nl+n2+carry  ) 

--  nl-n2  ) 

--  n2-nl  ) 

--  nl_and_n2  ) 

--  nl_or_n2  ) 

--  nl_xor_n2  ) 

—  nl  n2  nl+n2  ) 

--  nl  n2  nl+n2+carry  ) 

—  nl  n2  nl-n2  ) 

—  nl  n2  n2-nl  ) 

--  nl  n2  nl_and_n2  ) 

--  nl  n2  nl  or  n2  ) 

--  nl  n2  nl  xor  n2  ) 
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uCore  1.20  Opcodes  by  Functionality 


Complex  Math  Steps 


MULTS 

NONE 

ALU 

Op  : 

mults 

(  ul  u2  -- 

ul  u3  ) 

ODIVS 

NONE 

ALU 

Op: 

Odivs 

(  udl  u2  -■ 

-  u2  u3  ) 

UDIVS 

NONE 

ALU 

Op : 

udivs 

(  u2  u3  — 

u2  u3'  ) 

LDIVS 

NONE 

ALU 

Op : 

ldivs 

(  u2  u3  -- 

u2  u3'  ) 

Stack  manipulation 

DUP 

PUSH 

BRA 

Op : 

dup 

(  n  --  n  n 

) 

QDUP 

PUSH 

BRA 

Op : 

?dup 

(  n  --  n  n 

1    0  ) 

NEVER 

BOTH 

BRA 

Op : 

drop 

(  n  —  ) 

SWAPS 

NONE 

ALU 

Op: 

swap 

(  nl  n2  — 

n2  nl  ) 

NOS 

PUSH 

ALU 

Op: 

over 

(  nl  n2 

nl  n2  nl  ) 

NOS 

POP 

ALU 

Op: 

nip 

(   nl  n2  — 

n2  ) 

RSTACK 

BOTH 

MEM 

Op : 

r> 

(  —  n  ) 

RSTACK 

NONE 

MEM 

Op : 

>r 

(  n  —  ) 

TOR 

BOTH 

MEM 

Op : 

r@ 

(  —  n  ) 

TOR 

NONE 

MEM 

Op : 

r! 

(  n  —  ) 
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uCore  1.20  Opcodes  by  Functionality 


Registers 


STATUS 

BOTH 

MEM 

Op: 

s  taxusis 

[  —  status  ) 

STATUS 

NONE 

MEM 

Op: 

M   ^B    «k    ^B  «  M    M  1 

status ! 

I  4 — 1  "4 —  ■ — \  "4 —   T   ~\  4 — 1  \ 

(  status  —  ) 

RSP 

BOTH 

MEM 

Op: 

l                                -is*  4 — i  "4 —  ■ — \  / — r  ■ — \  s—\  s—\  -is*  \ 

[  —  rstacK  aaar  ; 

RSP 

NONE 

MEM 

Op: 

rsp ! 

/           -is*  4 — i  "4 —  ■ — \  / — r  ■ — \  s—\  s—\  -is*  \ 

[  rstacK  aaar  —  ; 

DSP 

BOTH 

MEM 

Op: 

asp  is 

/                                /~*l  t~*i  A —  ■ — \   s~*i    \jr  -) —   -is*  \ 

[  —  astacK  ptr  j 

DSP 

NONE 

MEM 

Op : 

asp ! 

(  dstack  ptr  —  ?  ) 

ta  Memory 

access 

N 

PUSH 

MEM 

Op : 

+ld 

(  addr  --  n  addr+i 

N 

POP 

MEM 

Op : 

+st 

(  n  addr  --  addr+i 

LOCAL 

BOTH 

MEM 

Op : 

+lld 

(  i  --  n  rstack+i  ) 

LOCAL 

NONE 

MEM 

Op : 

+lst 

(  n  i  --  rstack+i  ) 

TASK 

BOTH 

MEM 

Op : 

+tld 

(  i  --  n  task+i  ) 

TASK 

NONE 

MEM 

Op : 

+tst 

(  n  i  --  task+i  ) 
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uCore  1.20  Opcodes  by  Functionality 


Exits 

ALWAYS 

ZERO 

NZERO 

SIGN 

NSIGN 

NOVL 

NCARRY 

Branches 

ALWAYS 

ZERO 

NZERO 

SIGN 

NSIGN 

NOVL 

NCARRY 


NONE 

BRA 

Op 

exit 

(  —  ) 

NONE 

BRA 

Op 

z-exit 

(  flag  — 

) 

NONE 

BRA 

Op 

nz-exit 

(  flag  — 

) 

NONE 

BRA 

Op 

s-exit 

(  —  ) 

NONE 

BRA 

Op 

ns-exit 

(  —  ) 

NONE 

BRA 

Op 

no-exit 

(  —  ) 

NONE 

BRA 

Op 

nc-exit 

(  —  ) 

POP 

BRA 

Op 

branch 

( 

offset  -- 

POP 

BRA 

Op 

z -branch 

( 

offset  -- 

POP 

BRA 

Op 

nz -branch 

( 

offset  -- 

POP 

BRA 

Op 

s-branch 

( 

offset  -- 

POP 

BRA 

Op 

ns -branch 

( 

offset  -- 

POP 

BRA 

Op 

no-branch 

( 

offset  -- 

POP 

BRA 

Op 

nc-branch 

( 

offset  -- 
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uCore  1.20  Opcodes  by  Functionality 


Calls 


ALWAYS 

BOTH 

BRA 

Op 

call 

offset  --  ) 

ZERO 

BOTH 

BRA 

Op 

z-call 

offset  --  ) 

NZERO 

BOTH 

BRA 

Op 

nz-call 

offset  --  ) 

SIGN 

BOTH 

BRA 

Op 

s-call 

offset  --  ) 

NSIGN 

BOTH 

BRA 

Op 

ns-call 

offset  --  ) 

NOVL 

BOTH 

BRA 

Op 

no-call 

offset  --  ) 

NCARRY 

BOTH 

BRA 

Op 

nc-call 

offset  --  ) 

QOVL 

PUSH 

BRA 

Op 

?ovl 

—  ) 

N 

USR 

Op 

user  call 

32  uncommitted  instructions 

mplex  Branches 

INT 

PUSH 

BRA 

Op 

int 

( 

--  status  ) 

IRET 

PUSH 

BRA 

Op 

iret 

( 

status  --  ) 

EXC 

PUSH 

BRA 

Op 

exc 

( 

—  ) 

TIMES 

PUSH 

BRA 

Op 

times 

( 

n-1  —  ) 

NEVER 

POP 

BRA 

Op 

drop  flag 

( 

flag  offset  --  offset 
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Signal 
Analysis 
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uCore  Instantiation 


Application 
Program 


Umbilical 


Interface 
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uCore  instantiation  for  Geolon-MCS 


Data  path  width32  bii 

sProgram  memory256k  external  RAM,  2k  internal  "cache"Data  memoryl28k  ex 

Booting 

FPGA  Technology  Issues 
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The  Interrupt  and  Exception  Duality 


Interrupt 

An  event  did  happen  that  was  not  expected  by  software 
Exception 

An  event  did  not  happen  that  was  hoped  for  by  software 
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Time  Services  using  Exceptions 

Traditional  Method  using  a  Timer  Interrupt 

:  ahead  (  ticks  --  time. ahead  )     Timer  @  +  ; 

:  timeout?  (  ticks  --  ticks  f  )  dup  Timer  @  -  0<  ; 

:  continue  (  ticks  --   )  BEGIN     pause  timeout?  UNTIL  drop  ; 

:  sleep  (  ticks  --  )  ahead  continue  ; 

Using  an  Exception 

:   continue    (  ticks  --   )  Timer   !  ; 

and  now  we  can  afford  sub  millisecond  resolution  as  well 
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Pseudo  DMA 

Transferring  16  bit  data  between  IDE  interface  and  Buffer 
memory 

0  PUSH  USR  Opcode:  ide@  (  bufaddr  —  bufaddr+1  ) 
0  POP     USR  Opcode:   ide !      (  bufaddr  —  bufaddr+1  ) 

and  these  types  of  instructions  can  be  iterated  using  TIMES: 

$FF  times  ide@ 

loads  a  sector  into  the  buffer  at  one  transfer/cycle  plus  3  cycles  overhead.  Repeated  instructions 
are  fully  interruptible  without  latency. 
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Data  Encoding  and  Buffering,  soft  encoded 


(just  appreciate  its  long  winded  complications) 

:  split  (  32b  —  116b  hl6b  )  dup  SFFFF  and  swap  u256/  u256/  ; 
:  wsplit    (  16b  --  18b  h8b  )       dup  SFF  and  swap  u256/  ; 

:  buf8!    (  8bit  —  ) 
>r  idebuf_ptr  @  2/ 

carry  IF        Id  swap  r>  256*  or  swap  ! 
ELSE     r>  $FF  and  swap  ! 
THEN 

idebuf_ptr  Id  swap  1+ 

dup   [  #idebuf_top  2*   ]    literal  u> 

IF     idebuf_flush  drop  #idebuf_addr  2*  THEN 

swap  ! 

:  bufl6!  (  16bit  —  )  wsplit  buf 8 !  buf 8 !  ; 
:  buf24!  (  24bit  —  )  split  buf 8 !  buf 16!  ; 
:  buf 32!  (  32bit  —  )  split  buf 16!  buf 16!  ; 
:   abs     (  n  --  u  )       neg  IF     0  swap-     THEN  ; 


encode   (  sample  channel!  —  ) 
under  \  val  val  ch 

samples  +  \  val  val  addr 

Id  >r  swap  r>   !    \  val  old        store  val  in  samples  buffer 

under  -  \  val  difference 

dup  abs  \  val  difference   | difference | 

dup  $40  <       IF  drop  $7f  and  buf 8 ! 

drop  EXIT 
THEN 

dup  $1000  <  IF  drop  $1FFF  and  $C000  or  buf 16! 
drop  EXIT 
THEN 

$80000  <         IF  $FFFFF  and  $E00000  or  buf24! 
drop  EXIT 
THEN 

drop  $7FFFFFF  and  $F0000000  or  buf 32 ! 
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Data  Encoding  and  Buffering,  hardware  supported 


1  POP  USR  Opcode: 

2  POP  USR  Opcode: 

1  NONE  USR  Opcode: 

2  NONE  USR  Opcode: 


buf8!  (   8b  —  ) 

bufl6!  (   16b  —  ) 

buf24!  (  24b  —  16b  ) 

buf32!  (   32b  —  16b  ) 


ENCODE  NONE  ALU  Opcode:   tag      (   sample  previous  --  sample  code  ) 

:   encode    (  val  ch#  —  ) 
samples  +  Id  >r  tag 

carry  IF     buf 8 !     ELSE     ovl   IF     buf 32 !      THEN     bufl6!  THEN 
r>  ! 


The  core  can  be  clocked  at  1/4  speed,  saving  20  mW. 

The  code  is  also  more  understandable  and  therefore,  reliable  beyond  doubt®. 
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uCore  Scalability 


CONSTANT  data_width  :  NATURAL  :=  32; 

CONSTANT  data_addr_width  :  NATURAL  :=  21; 

CONSTANT  dcache_addr_width  :  NATURAL  :=  0; 

CONSTANT  prog_addr_width  :  NATURAL  :=  19; 

CONSTANT  pcache_addr_width  :  NATURAL  :=  0; 

CONSTANT  prog_ram_width  :  NATURAL  :=  16; 

CONSTANT  ds_addr_width  :  NATURAL  :=  6; 

CONSTANT  rs_addr_width  :  NATURAL  :=  8; 

CONSTANT  tasks_addr_width  :  NATURAL  :=  3; 

CONSTANT  interrupts  :  NATURAL  :=  2; 
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uCorelOO  Prototyping  Board 


XC2S200  FPGA 

256k  x  8  program  memory 

256k  x  32  data  memory/return  stack 

User  USB  port 

USB  configuration  port  (to  be  programmed!) 
Umbilical  Interface 

Centronics 
RS232 

Lots  of  uncommitted  I/O  pins 
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uCore  Licensing 

uCore  Exploratory  License 

Equivalent  terms  to  FreeBSD 

My  Business  Interest 

tayloring  instructions 

certifying  compatibility  with  the  original  model 
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Next  Steps 


Building  a  Development  Community 
GCC  backend 

Simulator  for  Windows/Linux 

USB  Programming  Interface  (8051nofim) 

www .  microcore .  org 
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